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Abstract 

A programming language called Pascal is described which was 
developed on the basis of Algol 60. Compared to Algol 60, its 
range of applicability is considerably increased due to a variety 
of data structuring facilities. In view of its intended usage 
both as a convenient basis to teach programming and as an efficient 
tool to write large programs, emphasis was placed on keeping the 
number of fundamental concepts reasonably small, on a simple and 
systematic language structure, and on efficient implemen tability . 
A one-pass compiler has been constructed for the CDC 6000 computer 
family. This Report may serve as a programmers' manual for PASCAL 
6000. 
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Preface to the Revised Report 



The language PASCAL has now been in use since almost three years, 
during which considerable experience has been gained through its 
use, its teaching, and its implementation. Although many reasons 
suggest that a language should be kept unchanged as soon as it 
has gained a user community, it would be unwise to ignore this 
experience and to refrain from making good use of it. This Report 
therefore describes a revised language which includes some changes 
suggested by the work of the last two years. It is still of the 
form of the original definition*, and in fact the changes are 
very few and relatively minor. They concern the following subjects: 

- Constant parameters are replaced by value parameters (in the 
sense of ALGOL 60) . 

- The class structure is eliminated: pointer variables are bound 
to a data type instead of a class variable. 

- The handling of files is changed such that the buffer variable 
ft always has a defined value except when the condition eof(f) 
is true. 

- Packed records and packed arrays are introduced. As a consequence, 
the type alfa becomes a special case of a packed characte-r 
array, and the need for a standard definition vanishes. The 
generalization has some consequences on the denotation of strings 
(formerly called alfa constants). 

Moreover, there are a few minor syntactic changes, such as the 
renaming of the powerset structure to set structure. All syntactic 
changes are specially marked in this report. 



The main effort of implementation has lately been spent on improving 
run-time checking facilities including a post-mortem dump routine. 



These facilities make the system very attractive for program 
development and teaching. In this connection, the reader is 
referred to the introductory programming text developed 
particularly for these purposes**. 

Implementation efforts on other computers have brought the 
problem of portability and machine independence of software 
systems to our closer attention. Many of the above mentioned 
changes, and also some additional restrictions, were adopted and 
imposed in the interest of program portability and machine 
independent definability. They made it possible to define almost 
the entire language by a set of abstract axioms and rules of 
inference***. Such a rigorous definition is necessary to be able 
to prove properties of programs. This rigour and machine indepen- 
dence has notably been achieved without sacrifice in the efficiency 
of program execution. 

I wish to thank my collaborators U. Ammann, K. Jensen, E. Marmier, 
and R. Schild for their efforts to implement the language and to 
make the PASCAL system a success. 

N. Wirth 



* N. Wirth, "The Programming Language PASCAL", ACTA INFORMATICA 
1, 35-63, (1971) and Berichte der Fachgruppe Computer- 
Wissenschaften 1 (Nov. 197D) 

** "Systematisches Programmieren" , Teubner Verlag, Stuttgart, 

1972 

"Systematic Programming", Prentice-Hall, Englewood Cliffs, 

1973 

*** C.A.R. Hoare and N. Wirth, "An Axiomatic Definition of the 
Programming Language PASCAL", to be published. 
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1 . Introduction 

The development of the language Pascal is based on two principal 
aims. The first is to make available a language suitable to teach 
programming as a systematic discipline based on certain fundamental 
concepts clearly and naturally reflected by the language. The 
second is to develop implementations of this language which are 
both reliable and efficient on presently available computers. 

The desire for a new language for the purpose of teaching program- 
ming is due to my deep dissatisfaction with the presently used 
major languages whose features and constructs too often cannot be 
explained logically and convincingly and which too often represent 
an insult to minds trained in systematic reasoning. Along with 
this dissatisfaction goes my conviction that the language in 
which the student is taught to express his ideas profoundly influ- 
ences his habits of tought and invention, and that the disorder 
governing these languages directly imposes itself onto the program- 
ming style of the students. 

There is of course plenty of reason to be cautious with the intro- 
duction of yet another programming language, and the objection 
against teaching programming in a language which is not widely 
used and accepted has undoubtedly some justification - at least 
based on short-term commercial reasoning. However, the choice of 
a language for teaching based on its widespread acceptance and 
availability, together with the fact that the language most widely 
taught is thereafter going to be the one most widely used, forms 
the safest recipe for stagnation in a subject of such profound 
pedagogical influence, I consider it therefore well worth-while 
to make an effort to break this vicious circle. 



Of course a new language should not be developed just for the sake 
of novelty; existing languages should be used as a basis for 
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development wherever they meet the criteria mentioned and do not 
impede a systematic structure. In that sense Algol 6D was used as 
a basis for Pascal, since it meets the demands with respect to 
teaching to a much higher degree than any other standard language. 
Thus the principles of structuring, and in fact the form of 
expressions, are copied from Algol 60. It was, however, not deemed 
appropriate to adopt Algol 60 as a subset of Pascal; certain con- 
struction principles, particularly those of declarations, would 
have been incompatible with those allowing a natural and convenient 
representation of the additional features of Pascal. 

The main extensions relative to Algol 60 lie in the domain of data 
structuring facilities, since their lack in Algol 60 was considered 
as the prime cause for its relatively narrow range of applicability. 
The introduction of record and file structures should make it 
possible to solve commercial type problems with Pascal, or at least 
to employ it successfully to demonstrate such problems in a pro- 
gramming course. The syntax of Pascal is summarised in graphical 
form in the Appendix. 

The language has been implemented on the CDC 6000 computers. Pascal 
6000 is described by a few amendments included here as a separate 
chapter to demonstrate the brevity of a manual necessary to 
characterise a particular implementation. 



2. Summary of the language 



An algorithm or computer program consists of two essential parts, 
a description of actions which are to be performed, and a 
description of the data , which are manipulated by these actions. 
Actions are described by so-called sta teme.n ts . and data are 
described by so-called declarations and definitions . 



The data are represented by values of variables . Every variable 
Qccuring in a statement must be introduced by a variable declara - 
tion which associates an identifier and a data type with that 
variable. The data type essentially defines the set of values 
which may by assumed by that variable. A data type may in Pascal be 
either directly described in the variable declaration, or it may 
be referenced by a type identifier, in which case this identifier 
must be described by an explicit type definition . 

The basic data types are the scalar types. Their definition indicates 
an ordered set of values, i.e. introduces identifiers standing for 
each value in the set. Apart from the definable scalar types, there 
exist four standard scalar types ; Boolean . integer . char , and real . 
Except for the type Boolean, their values are not denoted by 
identifiers, but instead by numbers and quotations respectively. 
These are syntactically distinct from identifiers. The set of 
values of type char is the character set available on a particular 
installation . 

A type may also be defined as a subrange of a scalar type by indicat- 
ing the smallest and the largest value of the subrange. 

Structured types are defined by describing the types of their 
components and by indicating a structuring method . The various 
structuring methods differ in the selection mechanism serving to 
select the components of a variable of the structured type. In 
Pascal, there are four structuring methods available: array 
structure, record structure, set structure, and file structure. 



In an array structure , all components are of the same type. A com- 
ponent is selected by an array selector, or computable index , 
whose type is indicated in the array type definition and which must 
be scalar. It is usually a programmer-defined scalar type, or a 
subrange of the type integer. Given a value of the index type, an 
array selector yields a value of the component type. Every array 
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variable can therefore be regarded as a mapping of the index type 
onto the component type. The time needed for a selection does not 
depend on the value of the selector (index). The array structure 
is therefore called a random-access structure . 

In a record structure , the components (called fields ) are not 
necessarily of the same type. In order that the type of a selected 
component be evident from the program text (without executing the 
program), a record selector is not a computable value, but instead 
is an identifier uniquely denoting the component to be selected. 
These component identifiers are declared in the record type defini- 
tion. Again, the time needed to access a selected component does 
not depend on the selector, and the record is therefore also a 
random-access structure. 

A record type may be specified as consisting of several variants . 
This implies 'that different variables, although said to be of the 
same type, may assume structures which differ in a certain manner. 
The difference may consist of a different number and different 
types of components. The variant which is assumed by the current 
value of a record variable is indicated by a component field which 
is common to all variants and is called the tag field . Usually, 
the part common to all variants will consist of several components, 
including the tag field. 

A set structure defines the set of values which is the powerset 
of its base type,, i.e. the set of all subsets of values of the 
base type. The base type must be a scalar type, and will usually 
be a programmer-defined scalar type or a subrange of the type 
integer . 



A file structure is a seouence of components of the same type. A 
natural ordering of the components is defined through the sequence. 
At any instance, only one component is directly accessible. The 



other components are made accessible by progressing sequentially 
through the file. A file is generated by sequentially appending 
components at its end. Consequently, the file type definition does 
not determine the number of components. 

Variables declared in explicit declarations are called static . The 
declaration associates an identifier with the variable which is 
usedto refer to the variable. In contrast, variables may be generated 
by an executable statement. Such a dynamic generation yields a 
so-called pointer (a substitute for an explicit identifier) which 
subsequently serves to refer to the variable. This pointer may be 
assigned to other variables, namely variables of type pointer. 
Every pointer variable may obtain pointers pointing to variables 
of the same type T only, and it is said to be bound to this type T. 
It may, however, also obtain the value nil . which points to no 
variable. Because pointer variables may also occur as components 
of structured variables, which are themselves dynamically generated, 
the use of pointers permits the representation of finite graphs in 
full generality. 



The most fundamental statement is the assignment statement . It 
specifies that a newly computed value be assigned to a variable (or 
components of a variable). The value is obtained by evaluating an 
expression . Expressions consist of variables, constants, sets; 
operators and functions operating on the denoted quantities and 
producing new values. Variables, constants, and functions are 
either declared in the program or are standard entities. Pascal 
defines a fixed set of operators, each of which can be regarded as 
describing a mapping from the operand types into the result type. 
The set of operators is subdivided into groups of 

1. arithmetic operators of addition, subtraction, sign inversion, 
multiplication, division, and computing the remainder. 

2. Boolean operators of negation, union (DR), and conjunction (AND). 



3. set operators of union, intersection, and set difference. 

4. relational operators of equality, inequality, ordering, 

set membership and set inclusion. The results of relational 
operations are of type Boolean . The ordering relations apply 
only to scalar types. 

The procedure statement causes the execution of the designated 
procedure (see below). Assignment and procedure statements are 
the components or building blocks of structured statements , which 
specify sequential, selective, or repeated execution of their 
components. Sequential execution of statements is specified. by 
the compound statement , conditional or selective execution by 
the if statement and the case statement , and repeated execution 
by the repeat statement , the while statement , and the for state - 
ment . The if statement serves to make the execution of a statement 
dependent on the value of a Boolean expression, and the case state- 
ment allows for the selection among many statements according to 
the value of a selector. The for statement is used when the number 
of iterations is known beforehand, and the repeat and while state- 
ments are used otherwise. 



A statement can be given a name (identifier), and be referenced 
through that identifier. The statement is then called a procedure . 
and its declaration a procedure declaration . Such a declaration 
may additionally contain a set of variable declarations, type 
definitions and further procedure declarations. The variables, 
types and procedures thus declared can be referenced only within 
the procedure itself, and are therefore called local to the 
procedure. Their identifiers have significance only within the 
program text which constitutes the procedure declaration and which 
is called the scope of these identifiers. Since procedures may be 
declared local to other procedures, scopes may be nested. Entities 
which are declared in the main program, i.e. not local to some 
procedure, are called global . 



A procedure has a fixed number of parameters, each of which is 
denoted within the procedure by an identifier called the 
formal parameter . Upon an activitation of the procedure statement, 
an actual quantity has to be indicated for each parameter which 
can be referenced from within the procedure through the formal 
parameter. This quantity is called the actual parameter . There 
are three kinds of parameters: value parameters, variable para- 
meters, and procedure or function parameters. In the first case, 
the actual parameter is an expression which is evaluated once. The 
formal parameter represents a local variable to which the result of 
this evaluation is assigned before the execution of the procedure 
(or function). In the case of a variable parameter, the actual 
parameter is a variable and the formal parameter stands for this 
variable. Possible indices are evaluated before execution of the 
procedure (or function). In the case of procedure or function 
parameters, the actual parameter is a procedure or function 
identifier . 

Functions are declared analogously to procedures. The only 
difference lies in the fact that a function yields a result which 
is confined to a scalar type and must be specified in the function 
declaration. Functions may therefore be used as constituents of 
expressions. In order to eliminate side-effects, assignments to 
non-local variables should be avoided within function declarations. 



3. Notation, terminology, and vocabulary 



According to traditional Backus-Naur form, syntactic constructs 
are denoted by English words enclosed between the angular brackets 
< and > . These words also describe the nature or meaning of the 
construct, and are used in the accompanying description of 
semantics. Possible repetition of a construct is indicated by an 
asterisk (0 or more repetitions) or a circled plus sign (1 or more 



repetitions). If a sequence of constructs to be repeated consists 
of more than one element, it is enclosed by the meta-brackets \ 
and J which imply a repetition of D or more times. 

The basic vocabulary consists of basic symbols classified into 
letters, digits, and special symbols. 

<ietter> ::=a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u1v|w|x|y|z| 

alb|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z 
<digit> ::= D | 1 | 2 | 3 | 4 | 5 | 6 | 7 | B | 9 
<special symbol> : : = 

+ |_|*|/|v|Ahl = MI<l>l<l>|(|)|[|]lCI>h=l 

. I , I ; I : I ' 1 1 I div | mod | nil | in | 

if I then | else | case | of | repeat | until | while | do | 

for | to I downto [ begin | end | with | goto | 

const I var | type | array | record | set | file I 

function I procedure I label I packed 

The construct 

•{<any sequence of symbols not containing "}"> / 
may be inserted between two identifiers, numbers {cf. 4), or special 
symbols. It is called a comment and may be removed from the program 
text without altering its meaning. The symbols {. and J do not 
occur otherwise in the language, and when appearing in syntactic 
descriptions they denote meta-symbols like | and ::= . 



4. Identifiers, Numbers, and Strings 



Identifiers serve to denote constants, types, variables, procedures 
and functions. Their association must be unique within their scope 
of validity, i.e. within the procedure or function in which they 
are declared (cf. 10 and 11). 
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<identif ier> ::= <letter><lettBr or digit>* 
<letter or digit> ::= <letter> | <digit> 

The usual decimal notation is used for numbers, which are the 
constants of the data types integer and real (see 6.1.2). The 
letter E preceding the scale factor is pronounced as "times 10 
to the power of". 

<unsigned integer> ::= <digit> 

<unsigned real> : := <unsigned integer> . <digit> | 

<unsigned integer> . <digit> E <scale factor> | 

<unsigned integer> E <scale factor> 
<unsigned numbBr> ::= <unsigned integer> | <unsigned real> 
<scale factor> : := <digit> | <sign> <digit> 
<sign> : : = + | - 



Examples : 
1 



10D 



0.1 



5E-3 



i7.35E+E 



Sequences of characters enclosed by quote marks are called strings . 
Strings consisting of a single character are the constants of the 
standard type char (see 6.1.2). Strings consisting of n (>1) 
enclosed characters are the constants of the types (see 6.2.1) 

packed array [ 1 . . n] o_f char 

Note: If the string is to contain a quote mark, then this quote 
mark is to be written twice. 

<string> ::= '<character> ' | 



Examples 



'A' 
'PASCAL 



THIS IS A STRING' 



1D 



5. Constant definitions 

A constant definition introduces an identifier as a synonym to 
a constant . 

<CDnstant identifier> ::= <identifier> 

<unsigned constant> ::= <unsigned number> | <string> | 

<constant identifier> | nil 
<constant> : := <unsigned number> | <sign><unsignBd number> | 

<constant identifier> | <sign><cons tant identifier> | <string> 
<constant definition> ::= <identifier> = <conStant> 

The following are standard constant identifiers defined in every 
implementation: 

eol = control character denoting end of line = ' eol ' 
alfaleng = maximum no. of characters that may be packed into a 
"word". 



6. Data type definitions 

A data type determines the set of values which variables of that 
type may assume and associates an identifier with the type. 

<type>.::= <simplB type> | <structured type> | <pointer type> 
<type def initian> : := <identif ier> = <type> 

6.1. Simple types 

<simple type> : := <scalar type> | <subrange type> | 

<type identifier> 
<type identifier> : := <identifier> 



6.1.1. Scalar types 

A scalar type defines an ordered set of values by enumeration of 
the identifiers which denote these values. 
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<scalar type> : := ( <identif iBr> { ,<identif ier>} ) 

Examples : 

(red, orange, yellow, green, blue) 
(club, diamond, heart, spade) 

(Monday, Tuesday, Wednesday, Thursday, Friday, 
Saturday, Sunday) 

Functions applying to all scalar types are: 

succ the succeeding value (in the enumeration) 
pred the preceding value (in the enumeration) 

6.1.2. Standard scalar types 

The following types are standard in Pascal: 

integer The values are a subset of the whole numbers defined 
by individual implementations. Its values are the 
integers (see 4 . ) . 

real Its values are a subset of the real numbers depending 
on the particular implementation. The values are 
denoted by real numbers (see 4.). 

Boolean Its values are the truth values denoted by the 
identifiers true and false . 

char Its values are a set of characters determined by- 
particular implementations. They are denoted by the 
characters themselves enclosed within quotes. 



6.1 . 3 . Subrange types 

A type may be defined as a subrange of another scalar type by 
indication of the least and the largest value in the subrange. The 
first constant specifies the lower bound, and must not be greater 
than the upper bound. 

<subrange type> ::= <constant> . . <cons tan t> 
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Examples : 



1 . .100 
-10 .. +10 
Monday . ; Friday 



6.2. Structured types 

A structured type is characterised by the type(s) of its components 
and by its structuring method. Moreover, a structured type defini- 
tion may contain an indication of the preferred data representation, 
If a definition is prefixed with the symbol packed . this has no 
effect on the meaning of a program, but is a hint to the compiler 
that storage should be economised even at the price of some loss 
in efficiency of access, and even if this may expand the code 
necessary for expressing access to components of the structure. 

<structured type> ::= <unpacked structured type> | 

packed <unpacked structured type> 
^unpacked structured type> ::= <array type> | 
<record type> | <set type> | <file type> 



6.2.1 . Array types 

An array type is a structure consisting of a fixed number of 
components which are all of the. same type, called the component 
type . The elements of the array are designated by indices, values 
belonging to the so-called index type . The array type definition 
specifies the component type as well as the index type. 

<array type> ::= array [<index type> {, <index type>J] cif 

<component type> 
<index type> : := <simple type> 
<component type> ::= <type> 

If n index types are specified, the array type is called 
ji-dimensional . and a component is designated by n indices. 
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Examples: array [I..IDD] D_f real 

array [1 • -ID, 1 . • 20 ] o£ D . , 99 
array [Boolean] D_f Color 



6.2.2. Record types 

A record type is a structure consisting of a fixed number of 
components, possibly of different types. The record type defini- 
tion specifies for each component, called field . its type and an 
identifier which denotes it. The scope of these so-called field 
identifiers is the record definition itself, and they are also 
accessible within a field designator (cf. 7.2) referring to a 
record variable of this type. 

A record type may have several variants . in which case a certain 
field is designated as the tag field , whose value indicates which 
variant is assumed by the record variable at a given time. Each 
variant structure is ideniified by a case label which is a constant 
of the type of the tag field. 

<record type> : := record <field list> end 

<field list> ::= <fixed part> | <f ixed part> ; <variant part>| 

<variant part> 
<fixed part>::= <record sectiGn> f;<record section>j 

<record section> : := <field identifier> \, <f ield identifier>i :<type> 
<variant part> ::= case <tag field> : <type identifier> of ' 

<variant> {;<variant>J 
<variant> ::= <case label list> : ( <f ield list>) | <case label list> 
<case label list> ::= <case label> l, <case label>/ | 

<case label> ::= <unsignBd constant> 
<tag field> : := <identif ier> 
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Examples: record day: 1..31; 

month : 1 . . 1 2 ; 
year: integer 
end 

record name, firstname: Alfa; 

age: D. .99; 

married: Boolean 
end 



record x,y: real; 
area : real ; 
case s : Shape of 
triangle: (side: real; 



rectangle ; 

circle : 
end 



inclination, anglel, angle2: Angle); 
(side1, side2 : real; 

skew, angle3: Angle); 
( diameter : real ) 



6.2.3. Set types 

A set type defines the range of values which is the powerset of 
its so-called base type . Base types must not be structured types. 
Operators applicable to all set types are: 



^ union 

A intersection 

set difference 
in membership 

<set type> ::= set of <base type> 
<base type> ::= <simple type> 
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6.2.4. File types 

A file type definition specifies a structure consisting of a 
sequence of components which are all of the same type. The number 
of components, called the length of the file, is not fixed by the 
file type definition. A file with D components is called empty , 
and files with components of type char are called textf iles . 

<file type> : : = file of <type> 

The following is a standard type: 

type text = packed file of char 



6.3. Pointer types 

Variables which are declared in a program (see 7.) are accessible 
by their identifier. They exist during the entire execution process 
of the procedure (scope) to which the variable is local, and these 
variables are therefore called static (or statically allocated). In 
contrast, variables may also be generated dynamically, i.e. without 
any correlation to the structure of the program. These dynamic 
variables are generated by the standard procedure new (see 10.1.2); 
since they do not occur in an explicit variable declaration, they 
cannot be referred to by a name. Instead, access is achieved via 
a so-called pointer value which is provided upon generation of the 
dynamic variable. A pointer type thus consists of an unbounded set 
of values pointing to elements of the same type. No operations are 
defined on pointers except the test for equality. 

The pointer value nil belongs to every pointer type; it points to 
no element at all. 

<pointer type> ::= t<type identifier> 
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Examples of type definitions: 

Color = (red, yellow, green, blue) 

Sex = (male, female) 

Text = file of char 

Shape = (triangle, rectangle, circle) 

Card = arrav F 1 . . BD1 of char 

Alfa = packed array F 1 .. alfalenq 1 of char 

Complex = record re, im : real end 

Person = record name, firstname: alfa; 

age : integer ; 
married: Boolean; 
father, child, sibling : t Person ; 
case s : Sex ojF 

male: (enlisted, bold; Boolean); 
female: (pregnant: Boolean); 

size: arrav T 1 . . 3 1 of integer) 
end 



7. Declarations and denotations of variables 



Variable declarations consist of a list of identifiers denoting 
the new variables, followed by their type. 

<variable declaration> ::= <identifier> {, <identif ier>} : <type> 

Every declaration of a file variable f with components of type T 
implies the additional declaration of a so-called buffer variable 
of type T . This buffer variable is denoted by ft and serves 
to append components to the file during generation, and to access 
the file during inspection (see 7.2.3 and 10.1.1). 

The standard file variables input and output are predeclared as 
textfiles. A Pascal program should be regarded as a procedure 
with these two variables as formal parameters. The corresponding 
actual parameters are expected to be either the standard input and 
output media of the computer installtion, or to be specifyable in 
the system command activating the Pascal system. 
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Examples : 

X , y , z : real 

u , V : Complex 

i , j : integer 

k: 0. .9 

p , q : Boolean 

operator: (plus, minus, times) 

a: arrav FO . . 63 1 of real 

b: array [Color, Boolean] of Complex 

c : Color 

f : file of char 

hue1 , hue2: set of Color 

pi , p2 : fPerson 

Denotations of variables either designale an entire variable, a 
component of a variable, or a variable referenced by a pointer 
(see 6.3). Variables in examples in subsequent chapters are assumed 
to be declared as indicated above. 

<variablB> : := <entire variable> | <component variable> | 
<referenced variable> 



7.1. Entire variables 

An entire variable is denoted by its identifier. 
<entire variablB> : := <variable identifier> 



<variable identifier> 



<identif ier> 



7.2. Component variables 

A component of a variable is denoted by the denotation for the 

variable followed by a selector specifying the component. The 

form of the selector depends on the structuring type of the variable. 

<component variable> ::= <indexed variable> | 
<field designator> | <file buffer> 



7.2.1 . Indexed variables 

A component of an n-dimensional array variable is denoted by the 
denotation of the variable followed by n index expressions. 

<indexed variable> ::= 

<array variable> [ <expression> {, <expression>} ] 
<array variablB> ::= <variable> 

The types of the index expressions must correspond with the index 
types declared in the definition of the array type. 

Examples : 
a[l2] 

a[i+j] 

b [red , true ] 

b[succ(c ) , pAq] 

Note: Packed arrays are not indexable (see ID. 1.3). 



7.2.2. Field designators 

A component of a record variable is denoted by the denotation 
of the record variable followed by the field identifier of the 
component . 

<record variable> . <f ield identifier> 
:= <variable> 

<identif ier> 



<field designator> 
<record variable> : 
<field identifier> 



Examples : 
u . re 

b[red , true] . im 
p2t • size 
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7.2.3. File buffers 

At any time, only the one component determined by the current 
file position (read/write head) is directly accessible. This 
component is called the current file component and is represented 
by the file's buffer variable. 

<file buffer> ::= <file variable >1 
<file variable> ::= <variable> 

7.3. Referenced variables 

<referenced variable> : := <pointer variable>T 
<pointer variable> : := <variable> 

If p is a pointer variable which is bound to a type T , p 
denotes that variable and its pointer value, whereas p* denotes 
the variable of type T referenced by p . 

Examples : 

p1 t. father 

p1 1 . sibling^. child 



Expressions 



Expressions are constructs denoting rules of computation for 
obtaining values of variables and generating new values by the 
application of operators. Expressions consist of operands, i.e. 
variables and constants, operators, and functions. 



The rules of composition specify operator precedences according 
to four classes of operators. The operator n has the highest 
precedence, followed by the so-called multiplying operators, then 
the so-called adding operators, and finally, with the lowest 
precedence, the relational operators. Sequences of operators of 
the same precedence are executed from left to right. The rules 
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of precedence are reflected by the following syntax: 

<factGr> ::= <variable> | <unsigned constant> | 

<function designator> | <set> | ( <Bxpression> ) | 

T <factor> 
<set> ::= [ <expression> t, <expression>} ] | [ ] 
<term> ;:= <factor> | <term><multiplying operatorXf actor> 
<simple expression> ::= <term> | 

<simple expression> <adding operator><term> | 

<adding operator><term> 
<expression> ::= <simple exprBSsion> | 

<simple BxpressionXrelational operator> 

<simple expression> 

Expressions which are members of a set must all be of the same 
type, which is the base type of the set. [] denotes the empty set. 



Examples : 
Factors : 



X 

15 

(x+y+z) 
sin ( x+y ) 

[red , c , green] 
T P 



Terms : 



Simple expressions 



X ' y 
i/(1-i) 

pA q 

(x < y)A (y < z) 

x + y 

-X 

hue1 V hue2 
i*j + 1 



Expressions : 



X = 1 .5 

P < q 

(i < j) = (j < k) 

c in huel 
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8.1. Operators 

B . 1 . 1 . The operator T 

The operator *i applied to a Boolean operand denotes negation, 

8.1 . 2 . Multiplying operators 

<multipl\/ing operator> : := * | / | div | mod | A 



operator 


operation 


type of 


operands 


type of result 


«- 


multiplication 


real 
integer 




integer, if both ope- 
rands are of type in- 
teger, real otherwise 


/ 


division 


real 
integer 




real 


div 


division 

with truncation 


integer 




integer 


mod 


modulus 


integer 




integer 


r 


logical "and" 


Boolean 




Boolean 


^ \ 


set intersection 


any set 


type T 


T 



,1.3. Adding operators 



<adding operator> ::= + | 



operator 


operation 


type of operands 


type of result 








integer, if both 


+ 


addition "j 


integer 


operands are of 


; 


subtraction J 


real 


type integer, 
real otherwise 


I 

r 


set difference "\ 
set union J 


any set type T 


T 


V \ 


logical "or" 


Boolean 


Boolean 



When used as operators with one operand only, - denotes sign 
inversion, and + denotes the identity operation. 
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1.4. Relational operators 
<relational operator> : := =|?^|<|<|>|>|in 



operator 


type of operands 


result 


< > 
<_ > 

in 


any type, (except file types) 
any scalar or subrange type 

any scalar or subrange type and 
its set type respectively 


Boolean 
Boolean 

Boolean 



Notice that all scalar types define ordered sets of values. In 
particular, false < true. 

The operators _< and _> may also be used for comparing values 

of set type, and then denote set inclusion C. and ^ respectively. 

The operators <, _<, >., > may also be applied to packed arrays 
with components of type char, and then denote alphabetical 
ordering according to the underlying set of characters. 

S . 2 . Function designators 

A function designator specifies the activation of a function. It 
consists of the identifier designating the function and a list of 
actual parameters. The parameters are variables, expressions, 
procedures, and functions, and are substituted for the 
corresponding formal parameters (cf. 9.1. 2., 10, and 11). 

<function designator> ::= <function identifier> | 

<functian identifier> ( <actual parameter {, <actual parameter>}) 
<f unction idBntifier> : := <identifier> 



Examples : 



5um(a, 100) 
GCD(147,k) 
sin ( x+y ) 
eof (f ) 
ord(ft) 
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9. Statements 

Statements denote algorithmic actions, and are said to be 
executable . They may be provided with a label which can be 
referenced by goto statements. 

<statement> ::= <unlabelled s tatement> | <label> : <unlabelled statement> 
<unlabelled statement> ::= <simple statement> | <structured statement> 
<label> ::= <unsigned integer> 

9.1. Simple statements 

A simple statement is a statement of which no part constitutes 
another statement. 

<simple statement> ::= <assignmBnt statement> | [ 

<prDcedure statement> | <goto statement> | <empty statement> | 

9.1.1. Assignment statements 

The assignment statement serves to replace the current value of a 
variable by a new value specified as an expression. 

<assignment statement> : := <variable> := <expression> | 
<function identifier> := <expression> 

The variable (or the function) and the expression must be of 
identical type, with the following exceptions being permitted: 

1 . the type of the variable is real, and the type of the 
expression is integer or a subrange thereof. 

2. the type of the expression is a subrange of the type of the 
variable, or vice-versa. 



Examples : 



X 

P 

i 

hue 



= y + z 

= (1 < i) A (i < loo: 

= sqr ( k ) - (i* j ) 
= [ blue , succ ( c ) ] 
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9.1 . 2 . Procedure statements 

A procedure statement serves to execute the procedure denoted by 
the procedure identifier. The procedure statement may contain a 
list of actual parameters which are substituted in place of their 
corresponding formal parameters defined in the procedure declara- 
tion (cf. 1D). The correspondence is established by the positions 
of the parameters in the lists of actual and formal parameters 
respectively. There exist four, kinds of parameters: so-called 
value parameters, variable parameters, procedure parameters (the 
actual parameter is a procedure identifier), and function parameters 
(the actual parameter is a function identifier). 

In the case of a value parameter , the actual parameter must be an 
expression (of which a variable is a simple case). The correspon- 
ding formal parameter represents a local variable of the called 
procedure, and the current value of the expression is initially 
assigned to this variable. In the case of a variable parameter , 
the actual parameter must be a variable, and the corresponding 
formal parameter represents this actual variable during the 
entire execution of the procedure. If this variable is a component 
of an array, its index is evaluated when the procedure is called. 

A variable parameter must be used whenever the oarameter represents 
a result of the procedure. 

<procedure statement> ::= <procedure identifier> | 

<procedure identifier> (<actual parameter> 

t, factual parameter>5) 
<procedure identifier> ::= <identifier> 
<actual parameter> ::= <expression> | <variable> | 

<procedure identifier> | <function identifier> 



Examples: next 

Transpose (a,n,m) 
Bisect (fct,-1 .D,+1 .D,x; 



25 



9.1 . 3 . Goto statements 

A goto statement serves to indicate that further processing should 
continue at another part of the program text, namely at the place 
of the label. 

<gDto statement> ::= goto <label> 

The following restrictions hold concerning the applicability of 
labels : 

1. The scope of a label is the procedure within which it is 
defined. It is therefore not possible to jump into a procedure. 

2. If a goto statement leads outside of a procedure, then its label 
must be specified in a label declaration in the heading of the 
procedure in which the label is defined. 

9.1 . 4 . The empty statement 

The empty statement consists of no symbols and denotes no actions. 
<empty statement> ::= 

9.2. Structured statements 

Structured statements are constructs composed of other statements 
which have to be executed either in sequence (compound statement), 
conditionally (conditional statements), or repeatedly (repetitive 
statements ) . 

<structured statement> ::= <compound statement> | 

<conditional statement> | <repetitive statement> | 
<with statement> 



9.2.1 . Compound statements 

The compound statement specifies that its component statements 
are to be executed in the same sequence as they are written. The 
symbols begin and end act as statement brackets. 
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<compDund Btatement> ::= begin <statement> \.; <statement>j end 
Example: begin z := x; x := y; y := z end 

9.2.2. Conditional statements 

A conditional statement selects for execution a single one of its 
component statements. 

<conditional statement> ::= 

<if statement> | <case statement> 

9.2.2.1 . If statements 

The if statement specifies that a statement be executed only if a 
certain condition (Boolean expression) is true. 

If it is false, then either no statement is to be executed, or 
the statement following the symbol else is to be executed. 

<!if statement> ::= if <expression> then <statement> | 
if <expression> then <statement> else <statement> 

The expression between the symbols if. and then must be of type 
Boolean . 

Note: 

The syntactic ambiguity arising from the construct 



* 



if <expression-1 > then if <expression-2> then <statement-1 > 
else <statBment-2> 

is resolved by interpreting the construct as equivalent to 

if <expression-1 > then 

begin if <expressian-2> then <statement-1 > else <statement-2> 
end 



Example 



r 



if X < 1.5 then z := x+y else z ;= 1.5 
if p 1 ^ nil then pi := plf. father 
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9.2.2.2. Case statements 

The case statement consists of an expression (the selector) and 
a list of statements, each being labeled by a constant of the 
type of the selector. It specifies that the one statement be 
executed whose label is equal to the current value of the selector. 

<casB statement> ::= case <expression> o_f 

<case list element> {;<case list elBment>J end 
<case list element> ::= <case label list> : <statement> | 
<case label list> : := <case label> ^,<case label>J 



Examples ; 

case operator o_f 



plus : 


X 


:= x+y; 


minus : 


X 


:= x-y; 


times : 


X 


:= x*y 



end 

end 



case 


i 


of 






1 




X 


: = 


s i n ( X ) ; 


2 




X 


: = 


cos ( X ) ; 


3 




X 


: = 


exp(x) ; 


4 




X 


; = 


ln(x) 



9.2.3. Repetitive statements 

Repetitive statements specify that certain statements are to be 
executed repeatedly. If the number of repetitions is known 
beforehand, i.e. before the repetitions are started, the for 
statement is the appropriate construct to express this situation; 
otherwise the while or repeat statement should be used. 

<repetitive statement> ::= <while statement> | 
<repeat statement> | <for statement> 

9.2.3.1 . While statements 

<while statement> ::= while <expression> d_o <statement> 



The expression controlling repetition must be of type Boolean. 
The statement is repeatedly executed until the expression becomes 
false. If its value is false at the beginning, the statement is 
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not executed at all. The while statement 

while e . _do, S 

is equivalent to 

if e then 

begin 5 ; 

while e do. 5 
end 

Examples : 

while a[i] ^ x d£. i := i+1 

while i > D do 

begin if odd(i) then z := z*x; 

i := i div 2 ; 

X := sqr ( x ) 
end 



while Teof(f) do 
begin P ( f > ) ; get(f ] 
end 



9.2.3.2. Repeat statements 



<repeat statement> : : = 

repeat <statement> {; <statement>/ until <expression> 



The expression controlling repetition must be of type Boolean. 
The sequence of statements between the symbols repeat and until 
is repeatedly (and at least once) executed until the expression 
becomes true. The repeat statement 

repeat 5 until e 

is equivalent to 

begin S ; 

if -\ e then 

rep eat S until e 
end 
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Examples : 

repeat k := 
i : = 

J : = 
until j = 



i mod j ; 

j ; 

k 



repeat P ( ft ) ; get(f; 
until eof ( f ) 



9.2.3.3. For statements 

The for statement indicates that a statement is to be repeatedly 
executed while a progression of values is assigned to a variable 
which is called the control variable of the for statement. 

<for statemBnt> : : = 

for <control variable> := <for list> d^. <statement> 
<for list> : := <initial value> to <final value> | 

<initial value> downto <final value> 
<CDntrol variable> : := <identifier> 
<initial value> : := <expression> 
<final value> : := <expression> 

The control variable, the initial value, and the final value must 
be of the same scalar type (or subrange thereof), and must not be 
altered by the repeated statement. 

A for statement of the form 
for V := e1 to. e2 .do S 
is equivalent to the sequence of statements 

V := el; 5; v := succ(v); 5; ...; v := e2; S 
and a for statement of the form 

for V := e1 downto e2 do 5 
is equivalent to the statement 

V := e1; 5; v := pred(5); S; ...; v := e2; S 

Note: The final value of the control variable is left undefined. 



30 



Examples : 

far i := 2 to_ 100 d^ i_f_ a[i] > max then max := a[i] 

for i := 1 to n da 
for j := 1 jto n do 
begin x : = ; 

for k := 1 to_ n do_ x := x+a [i , k ]*b [k , j ] ; 

c[i,j] := X 
end 

for c := red to. blue d^ Q{c) 

9.2.4. With statements 

<with statement> ;:= with <rBcord variable list> do_ <statement> 
<record variable list> : := <record variable> {,, <record variable>7 

Within the component statement of the with statement, the components 
(fields) of the record variable specified by the with clause can be 
denoted by their field identifier only, i.e. without preceding them 
with the denotation of the entire record variable. The with clause 
effectively opens the scope containing the field identifiers of the 
specified record variable, so that the field identifiers may occur 
as variable identifiers. 



Example : 

with date d^g 

if month = 1 2 then 

begin month := 1 ; year := year+1 

end 
else month := month+1 

is equivalent to 

if date. month = 12 then 

begin date. month := 1 ; date. year 

end 
else date. month := date. month+1 



date . year+1 



No assignments may be made by the qualified statement to any 
constituents of the record variable list. 



31 



10. Procedure declarations 

Procedure declarations serve to define parts of programs and to 
associate identifiers with them so that they can be activated by 
procedure statements. A procedure declaration consists of the 
following parts, any of which, except the first and the last, may 
be empty : 

^procedure declaration> ::= 

<procedurB headingXlabel declaration part> 

<constant definition partXtype definition part> 

<variable declaration part> 

<Cprocedure and function declaration partXstatement part> 

The procedure heading specifies the identifier naming the procedure 
and the formal parameter identifiers (if any). 

The parameters are either value-, variable-, procedure-, or function 
parameters (of. also 9.1.2). 

<procedure heading> ::= procedure <identifier> ; | 

procedure <identifier> ( Cf ormal parameter SBction> 
^;<formal parameter section>} ) ; 

<Cformal parameter section> : : = 

<parameter graup> | I 

var <parameter group> | 

function <parameter group> | 

procedur e <identif ier> \, <identif ier>j 
<parameter group> : := <identif ier> 1, <identif ier>j : 

<type identifier> 

A parameter group without preceding specifier implies that its 
constituents are value parameters. 



The label declaration part specifies all labels which are defined 
local to the procedure and occur in goto statements within proce- 
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dures which are themselves local to the procedure. 

<label declaration part> : := <empty> | 
label <label> {, <label>} ; 

The constant definition part contains all constant synonym de- 
finitions local to the procedure. 

<cDnstant definition part> : := <empty> | 

const <constant definition> f;<constant definition>j ; | 

The type definition part contains all type definitions which are 
local to the procedure declaration. 

<type definitions part> ::= <empty> | 

type <type definition> v,<typB definition>J ; 

The variable declaration part contains all variable declarations 
lo«al to the procedure declaration. 

<yariable declaration part> : := <empty> [ 

yar <variable declaration> \; <yariable declaration> j ; 

The procedure and function declaration part contains all procedure 
and function declarations local to the procedure declaration. 

<procedure and function declaration part> ::= 

\^<procedure or function declaration> ;j 
■(procedure or function declaratiDn> :: = 

<procedure declaration> | <function declaration> 

The statement part specifies the algorithmic actions to be executed 
upon an activation of the procedure by a procedure statement. 

<statement part> ::= <compound statemBnt> 



All identifiers introduced in the formal parameter part, the 
constant definition part, the type definition part, the variable-, 
procedure or function declaration parts are local to the procedure 
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declaration which is called the scope of these identifiers. They 
are not known outside their scope. In the case of local variables, 
their values are undefined at the beginning of the statement part. 

The use of the procedure identifier in a procedure statement within 
its declaration implies recursive execution of the procedure. 

Examples of procedure declarations: 

procedure readinteger ( var x: integer); 

var i, j : integer ; 
begin i : = D ; 

while (inputt > '0')a (inputt <. '9') do 

begin j := ord(inputt) - ord('D'); 
i := 1D*i + j; 
get ( input ) 

end ; 

X := i 
end 



procedure Bisect ( function f: real; a,b: real; var z: real] 

var m : real ; 
begin { assume f(a) < and f(b) > Dj 
while abs(a-b) > 1E-10*abs(a) do 
begin m := (a+b)/2.0; 

if f(m) < D then a := m else b := m 
end ; 
2 := m 
end 
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procedure ECD(m,n: integer; var x,y,z: integer); 
var a1 , a2, b1 , b2 , c , d , q , r : integer; {m >. D, n > O} 
begin iGreatest Common Divisor x of m and n. 
Extended Euclid's Algorithm} 
a1 := 0; a2 := 1 ; b1 := 1 ; b2 := D; 
c : = m ; d := n ; 
while d ?^ do 

begin fa1 *m + b1*n = d, a2*m + b2*n = c, 
gcd(c,d) = gcdlmjn)/ 
q := c div d; r := c mod d; 
a2 := a2 - q*a1 ; b2 := b2 - q*b1 ; 



= d; d := r ; 

= a1; a1 := a2 ; a2 := r; 

= b1 ; b1 := b2; b2 := r 



end • 



end 



X :=c; y ;=a2; z :=b2 

•£ X = gcd(m,n), y*m + z*n = gcd(m,n)j 



10.1. Standard procedures 

Standard procedures are supposed to be predeclared in every imple- 
mentation of Pascal. Any implementation may feature additional 
predeclared procedures. Since they are, as all standard quantities, 
assumed as declared in a scope surrounding the program, no conflict 
arises from a declaration redefining the same identifier within the 
program. The standard procedures are listed and explained below. 



1 D . 1 . 1 . File handling procedures 
put(f ) 



appends the value of the buffer variable f^ to' the 
file f . The effect is defined only if prior to 
execution the predicate eof(f) is true. eof(f) 
remains true, and f^ becomes undefined. 



get(f) advances the current file position (read/write head) 
to the next component, and assigns the value of this 
component to the buffer variable ft • If no next 
component exists, then eof(f) becomes true, and the 
value of ft is not defined. The effect of get(f) 
is defined only if Bof(f) = false prior to its 
execution, (see 11.1.2) 
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reset(f) resets the current file position to its beginning 

and assigns to the buffer variable ft the value of 
the first element of f . eof(f) becomes false, if f 
is not empty; otherwise ft is not defined, and eDf(f) 
remains true. 

rewrite(f) discards the current value of f such that a new 
file may be generated, eof(f) becomes true. 

read ( ch ) means 

begin ch := inputT ; get(input) end 

write(ch) means 

begin outputt '•= ch ; put(output) end 

where ch denotes a variable (expression) of type char. 

1D.1.2. Dynamic allocation procedure 

newCp) allocates a new variable v and assigns the pointer to 
V to the pointer variable p . If the type of v is a 
record type with variants, the form 

new(p,t) can be used to allocate a variable of the variant with 
tag field value t . The allocation then implies an 
assignment to the tag field. The value of the tag field 
must subsequently remain constant. 



10.1.3. Data transfer procedures 

Let a be an array variable of type 

arrav Tm . . n 1 of T 

and let z be a variable of type 

packed array [u . . v] o_f T 

where n-m _> ^~'-' • Then 

pacl<(a,i,z) means 
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far j := u _to v .do z[j] := a[j-u+i] 

unpack { z , a , i ) means 

for j := u to. V d^ a[j-u+i] := z[j] 

where j denotes an auxiliary variable not occuring elsewhere 
in the program. 

1 1 . Function declarations 



Function declarations serve to define parts of the program which 
compute a scalar value or a pointer value. Functions are activated 
by the evaluation of a function designator (cf. 6.2) which is a 
constituent of an expression. A function declaration consists 
of the following seven parts, any of which, except the first and 
the last, may be empty (cf. also ID.). 

<function declaration> ::= 

<function headingXlabel declaration part> 

<constant definition partXtype definition part> 

<variable declaration part> 

<procedure and function declaration partXstatement part> 

The function heading specifies the identifier naming the function, 
the formal parameters of the function and the type of the function. 

<function heading> ::= function <identif ier> : <result type>; | 
function <identifier> ( <f ormal parameter sBction> 
^;<formal parameter section>/) : <result type> ; 
<result type> : := <type idBntifier> 



The type of the function must be a scalar, subrange, or pointer 
type. Within the function declaration there must be at least one 
assignment statement assigning a value to the function identifier. 
This assignment determines the result of the function. Occurrence 
of the function identifier in a function designator within its 
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declaration implies recursive execution of the function, 



Examples : 

function Sqrt(x: real): real; 

var xO,x1; real; 
begin x1 := x; •£ x > 1, Newton's method} 

repeat xO := x1; x1 := (xD + x/xO) * 0.5 

until abs(xl-xO) < eps*x1; 

Sqrt := xD 
end 



function Max(a: vector; n: integer): real; 

var x: real; i: integer; 
begin x := a [l ] ; 

for i := 2 t£_ n do 

begin \ x = max(a....a. . )/ 
if X < a[i] then x := a[i] 

end 

i 



max( a . . . a^ )} 
Max := X 



n 



end 



function GCD(m,n: integer): integer; 

begin if n = D then G C D : = m else GCD := GCD{n,m mod n ] 

end 



function PowBr(x: real; y: integer! 

var w,z: real; i: integer; 
begin w :=x; z :=1; i :=y; 
while i 7^ do 
begin { z*w"'" = xV/ 

if odd(i) then z := z*w; 
i : = i div 2 ; 
w := sqr ( w ) 
end ; 

{ z = xV } 

Power := z ' 

end 



real; { y > D> 



11.1. Standard functions 

Standard functions are supposed to be predeclared in every implemen- 
tation of Pascal. Any implementation may feature additional prede- 
clared functions (cf. also 1D.1). 



The standard functions are listed and explained below; 
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11.1.1 
abs ( X ) 



sqrl X J 

sin ( X ) 
cos ( X ) 
exp ( X ) 
ln(x) 
sqrt ( X 
arctan 



Arithmetic functions 

computes the absolute value of x . The type of x 
must be either real or integer . and the type of the 
result is the type of x . 

o 

computes x . The type of x must be either real or 

integer , and the type of the result is the type of x 



the type of x must be either real or integer . and 
the type of the result is real . 



(x) 



11.1.2. Predicates 

odd(x) the type of x must be integer . and the result is x mod 2=1 
eaf(f) indicates, whether the file f is in the end-of-file status. 

11.1.3. Transfer functions 

trunc(x) X must be of type real, and the result is of type integer, 
such that if x >.0 , then x-1 < trunc(x) <. x . 

ord(x) X must be of type char, and the result (of type integer) 
is the ordinal number of the character x in the defined 
character set. 

chr(x) X must be of type integer, and the result (of type char) 
is the character whose ordinal number is x. 



11.1.4. Further standard functions 

succ(x) X is of any scalar or subrange type, and the result is 
the successor value of x (if it exists). 

pred(x) x is of any scalar or subrange type, and the result is 
the processor value of x (if it exists). 
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1 2 . Programs 

A Pascal program has the form of a procedure declaration without 
heading. 

<program> : := <label declaration part> 

<constant definition partXtype definition part> 

<variable declaration part> 

<procedure and function declaration par tXs tatement part>. 



13. Pascal 60DD 



This chapter provides additional information concerning PASCAL as 
it is implemented on the CDC 6DD0 series of computers. It differs 
from Standard PASCAL as defined in the preceding chapters by a 
few restrictions and a number of extensions. The programmer should 
be well aware that the use of extensions may render his programs 
unacceptable to other implementations of PASCAL. The section numbers 
used hereafter refer to the corresponding sections of the preceding 
language definition. 

( 3 ) Vocabulary 

Only capital letters are available in the basic set of symbols. 
Symbols which consist of a sequence of underlined letters are 
called word-delimiters . They are written in Pascal 6000 without 
underlining and without any surrounding escape characters. As a 
consequence, they must not be us'ed as identifiers. Blanks, end-of- 
lines, and comments are called separators. An arbitrary number of 
separators may be inserted between any two symbols except within 
word-delimiters, identifiers, numbers, and := . At least one 
separator must be inserted between two consecutive word-delimiters, 
identifiers, and numbers. 
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(4) Identifiers 

Only the1D first symbols of an identifier are significant. 
Identifiers not differing in the10 first symbols are considered 
as equal . 

All identifiers must be declared (textually) prior to their use. 

An exception is possible for pointer type definitions and procedure 

declarations (see below). 



(6.1.2) Standard scalar types 
integer is defined as 



real 



char 



48 48 
type integer = -2 +1 . . 2 -1 

Note ; no indication of overflow is provided by the CDC 
computer i 

is defined according to the CDC 6D0D floating point 
format specifications. 

is defined by the CDC 6DDD display code character set. 
This set is extended by the line separator eol . 



eol 


A 


B 


C 


D 


E 


F 


G 


H 


I 


J 


K 


L 


M 


N 





P 


Q 


R 


5 


T 


U 


V 


W 


X 


Y 


Z 





1 


2 


3 


4 


5 


6 


7 


a 


9 


+ 


- 


* 


/ 


( 


) 


$ 


= 


i_j 


f 


. 


1 


[ 


] 


: 


^ 


{ 


V 


A 


t 


} 


< 


> 


< 


>. 


-i 


* 
f 















J 

Note ; The characters ' ^ / are special features on 
the printers of the ETH installation, and correspond to 
the characters B r* ♦ on standard CDC systems. 



(6.2.3) Set types 
The base type of a set type must be either 

1 . a scalar type with less than 60 values, or 

2. a subrange of the type integer, with a minimum element 
min(T) >. and a maximum element max(T) < 59, or 
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3. a subrange of the type char with the maximum element 
max(T) < '>' . 

(6.2.4) File types 

No component of any structured type can be of a file type. 

(7) Variable declarations 

File variable declarations in the main program may be provided 
with a specifier implying various restrictions or dispositions 
on the file. The available specifiers and their implications are: 

IN The file is an external file (e.g. a permanent file 

connected to the job by a SCOPE ATTACH command). This 
file is to be read only. 

EXT As IN. However, the file may be extended by appending 
further components at its end. 

CUT As in all above cases, the file is not discarded at the 
end of the PASCAL run, but remains available (e.g. in 
order to be made permanent by a SCOPE CATALOG command). 

PRINT The file is printed after termination of the job. 

PUNCH The file is punched after termination of the job. 

In all cases, the first seven characters of the file variable 
identifier are used as its Logical File Name (see SCOPE Reference 
Manual) . 



Example : 

f[in], g[out]: text 

(10 and 11) Procedure and function declarations 

A procedure or a function which contains local file declarations 

must not be activated recursively. 

Procedures and functions may be used before they are declared, 
if they are "preannounced" by a forward declaration. 
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Example : 



procedure Q{x:T); forward; 
procedure P(y:T); 

begin ... Q ( a ) ... end ; 
procedure Q; {parameters are not repeatedj 

begin ... P ( b ) ... end ; 
begin ... P(a) ... Q(b) ... end . 



(10.1.1) Extension of standard procedures read and write. 
The standard procedure read is extended in two ways: 

- it accepts a variable number of parameters such that 

read(c1, c2 ... en) means 

begin read(cl); read(c2); ... readlcn) end 

- its parameters may be of type char, integer, or real. In the 
first case, only the one next character is read; in the latter 
two cases, a sequence of characters is read which represents an 
integer or a real number according to the PASCAL syntax. 
(Consecutive numbers must be separated by blanks or end of lines] 

The standard procedure write is extended in several ways: 

- it accepts a variable number of parameters such that 

write(p1, p2 ... pn) means 

begin write(pl); write(p2); ... write(pn) end 

- every parameter must be of one of the forms 

e 

e : el 

e : e1 : e2 

where e, el, and e2 are expressions, e is the value to be output 
and el indicates the number of characters to be output (often 
called "field width") . 

- every parameter e may be of type char, integer, real. Boolean, 
or of any packed array. The corresponding values are converted 
to sequences of el characters representing these values in 
standard notation. If a specification of el is omitted, the 
following default values are selected: 



43 - 



type 



default field width 



char 
integer 
real 
Boolean 



1 
10 
20 
10 



e2 is applicable only for real valued parameters and specifies 
the number of digits to be printed after the decimal point. If 
e2 is omitted, real numbers are printed in decimal floating point 
form . 



Example : 

Let k = 135, n = 4, x = 72. B3, b = true, c = 'A', then 
write(l< + k: n, x: 12, x:6:1, ',_,,jA', c, b, eol ) 

appends the character sequence 

L.270^^7.2a30E+D1^._.72.B_^AA^..^^^^TRUE eol 

to the standard file output. 

A line may contain at most 136 characters. The end of each line 
must be explicitly indicated by an eol character. The first 
character of each line is interpreted by the printer as a control 
character and is not printed. The following characters have a 
standard meaning: 



single spacing 
double spacing 
skip to top of next page before printing 

(For an explanation of other control characters at ETH see 
RZ Bulletin 11, 7-9, Juni 1972). 



blank 
'0' 
'1 ' 
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Table of standard identifiers 



Constants : 

false, true, eol, alfaleng 

Types : 

integer. Boolean, real, char, text 

Variables : 

input , output 

Functions : 

abs, sqr, odd, succ, pred, ord, chr, trunc, eof, 
sin, cos, exp. In, sqrt, arctan 

Procedures : 

get, put, reset, rewrite, 

new, read, write, pack, unpack . 



14. Glossary 
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actual parameter 

adding operator 

array type 

array variable 

assignment statement 

base type 

case label 

case label list 

case list element 

case statement 

component type 

component variable 

compound statement 

conditional statement 

constant 

constant definition 

constant definition part 

constant identifier 

control variable 

digit 

empty statement 

entire variable 

expression 

factor 

field designator 

field identifier 

field list 

file buffer 

file type 

file variable 

final value 

fixed part 

for list 

formal parameter section 

for statement 

function declaration 

function designator 

function heading 

function identifier 

goto statement 

identifier 

if statement 

index type 

indexed variable 

initial value 

label 

label declaration part 

letter 

letter or digit 

multiplying operator 

parameter group 



9.1 .2 
8.1.3 
6.2.1 
7.2.1 
9.1.1 
6.2.3 
6.2.2 
9.2.2 
,2.2 
,2.2 
,2.1 
,2 

,2.1 
.2.2 



9. 

9. 

6. 

7. 

9. 

9. 

5. 

5. 

ID. 

5. 

9.2. 

3. 

9.1 . 

7.1 

8. 

8. 

7.2. 

7.2. 

6.2, 



9 

4 

9 

6 

7 

9 

9. 

10. 

3. 

4. 

8.1 

ID. 



ID. 
9.2. 
11 . 
8.2 
11 . 
8.2 



1 .3 



and 6.2.2 



3.3 



2 

2 

2 

3 

4 

3 

3.3 

2 

3.3 

3.3 
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pointer variable 
pointer type 
procedure and function 

declaration part 
procedure declaration 
procedure heading 
procedure identifier 
procedure or function declaration 
procedure statement 
program 

record section 
record type 
record variable 
record variable list 
referenced variable 
relational operator 
repeat statement 
repetitive statement 
result type 
scale factor 
scalar type 
set 

set type 
sign 

simple expression 
simple statement 
simple type 
special symbol 
statement 
statement part 
string 

structured statement 
structured type 
subrange type 
tag field 
term 
type 

type definition 
type definition part 
type identifier 
variable 

variable declaration 
variable declaration part 
variable identifier 
variant 
variant part 
unlabelled statement 
unpacked structured type 
unsigned constant 
unsigned integer 
unsigned number 
unsigned real 
with statement 
while statement 



7.3 




6.3 




ID. 




ID. 
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9.1 . 
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1D. 




9.1 . 


2 


12. 




6.2. 
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6.2. 
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7.2. 
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9.2. 


4 


7.3 




8.1 . 
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9.2. 
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9.2. 


3 


11 . 




4. 




6.1 
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8. 
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4. 
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